This looks like rainfall data
stations_dat = read.csv("../data/Ajmer_Rainfall data_1973-2008.csv")
station_names = stations_dat %>% group_by(station_name) %>% summarise(cnt = n(), avg = mean(numeric))## `summarise()` ungrouping output (override with `.groups` argument)plot_ly(stations_dat %>% filter(station_name == station_names$station_name[1]), y = ~numeric, x=~dt, type="scatter", mode= "line")## Warning: `arrange_()` is deprecated as of dplyr 0.7.0.
## Please use `arrange()` instead.
## See vignette('programming') for more help
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.Looks like some of the station names have some variants:
stations_dat = read.csv("../data/Ajmer_Rainfall data_1973-2008.csv")
stations_dat = stations_dat %>% rowwise() %>% mutate(new_station_name = str_trim(strsplit(gsub("\\("," ",tolower(station_name))," ")[[1]][1]))
station_names = stations_dat %>% group_by(new_station_name) %>% summarise(cnt = n(), avg = mean(numeric))## `summarise()` ungrouping output (override with `.groups` argument)fig = plot_ly(stations_dat %>% filter(new_station_name == station_names$new_station_name[1]), y = ~numeric, x=~dt, type="scatter", mode= "line" ,name = station_names$new_station_name[1])
fig ## Warning: Ignoring 62 observationsfor(i in 1:(NROW(station_names)-1)){
dat = stations_dat %>% filter(new_station_name == station_names$new_station_name[i])
fig = fig %>% add_trace(y = dat$numeric, x = dat$dt, name = station_names$new_station_name[i] )
}
fig## Warning: Ignoring 62 observations
## Warning: Ignoring 62 observations## Warning: Ignoring 122 observations## Warning: Ignoring 32 observations## Warning: Ignoring 121 observations## Warning: Ignoring 122 observations## Warning: Ignoring 92 observations## Warning: Ignoring 61 observations
## Warning: Ignoring 61 observations## Warning: Ignoring 1 observations## Warning: Ignoring 121 observations## Warning: Ignoring 92 observations## Warning: Ignoring 61 observations
## Warning: Ignoring 61 observations
## Warning: Ignoring 61 observations## Warning: Ignoring 31 observations## Warning: Ignoring 121 observations## Warning: Ignoring 91 observations## Warning: Ignoring 122 observations## Warning: Ignoring 152 observations